home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / H121A.ZIP / FILES7.EXE / lha / DISEASE.PGM < prev    next >
Text File  |  1991-07-15  |  1KB  |  69 lines
  1. ****************************************
  2. *                                      *
  3. * DISEASE.PGM                          *
  4. *                                      *
  5. ****************************************
  6.  
  7. cls
  8. echo
  9. echo Disease Specific Summary Report.
  10. echo
  11. ?Press the Enter key to continue, type QUIT to abort. ?
  12.  
  13. cls
  14. read \surv\reports
  15.  
  16. define begin date width = 8 global
  17. define end   date width = 8 global
  18. define dx    string width = 10 global
  19. define month string width = 2 global
  20.  
  21. set criteria=off
  22. set statistics=off
  23.  
  24. cls
  25. echo
  26. route    ?SCREEN, PRINTER, or disk file:     ?
  27. cls
  28.  
  29. echo
  30. echo
  31. begin = "?Enter beginning date (mm/dd/yy):  ?"
  32. end   = "?         ending date (mm/dd/yy):  ?"
  33. echo
  34. dx    = "?Enter Disease Name:                ?"
  35.  
  36. month = onset[1,2]
  37.  
  38. cls
  39. echo
  40. echo Please wait.  Reading data.
  41. echo
  42.  
  43. select disease = dx
  44. select onset >= begin
  45. select onset <= end
  46.  
  47. Title 1 "\cSummary Report  @dx   As of @systemdate"
  48. Title 2 "\c@begin - @end"
  49. Title 3 " "
  50.  
  51. Freq month county city sex race age
  52.  
  53. echo
  54. echo
  55. ?Press the Enter Key for Line List, type QUIT to end. ?
  56.  
  57. cls
  58. newpage
  59. Title 1 "\cSummary Report  @dx   As of @systemdate"
  60. Title 2 "\c@begin - @end"
  61. Title 3 " "
  62. list name age sex race city onset
  63. newpage
  64.  
  65. echo
  66. echo
  67. ?Report complete.  Press ENTER to return to menu.?
  68. quit
  69.